'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 4 November 2011 at 5:45:04 pm'!TestCase subclass: #TesteCelulaCoberta	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo_Campo_Minado_Teste'!!TesteCelulaCoberta methodsFor: 'as yet unclassified' stamp: 'marcos 11/4/2011 17:07'!testeCelulaCobertaNaoPodeSerInstanciadaself should: [CelulaCobertura new] raise: Error.! !!TesteCelulaCoberta methodsFor: 'as yet unclassified' stamp: 'marcos 11/4/2011 17:45'!testeCelulaCobertaVerificaCelulaContida|celula|celula:= CelulaCobertura insereCelulaEmCelulaContida: CelulaVazia new.self should: [celula mostrarCelulaContida class = CelulaVazia ].celula transformaCelulaContidaEmCelulaMina.self should: [celula mostrarCelulaContida class = CelulaMina ].! !